home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / sys / SavInstaller.lha / installer / install < prev    next >
Text File  |  1998-10-01  |  5KB  |  135 lines
  1. ; this is the installation script for the Savage-Installer
  2. ; note, that it makes use of seveal new features of the Savage-Installer
  3.  
  4. (if (= @system-language "english")
  5.  
  6.     (
  7.       (set #msg_welcome (cat "Welcome to the Installation of the Savage-Installer\n\n"
  8.                              "The Savage-Installer wants to be a substitution of\n"
  9.                              "the original Installer by C=\n"
  10.                              "It offers many new features, looks much better and is\n"
  11.                              "smaller than the C= Installer"
  12.                         )
  13.       )
  14.       (set #msg_askfile_prompt "Where is the default Installer located?")
  15.       (set #msg_askfile_help (cat "Please select the original Installer by C=. "
  16.                                   "This script will make a backup copy of the "
  17.                                   "Installer and then, it will replace the "
  18.                                   "original by the new Savage-Installer."
  19.                              )
  20.       )
  21.       (set #msg_copylib_prompt "Now copying the Savage-Installer to \"%s\"")
  22.       (set #msg_copylib_help "")
  23.       (set #msg_askbool_prompt (cat "Your prefered language is \"%s\"\n"
  24.                                     "Do you want to install the related catalog (if it exists)?"
  25.                                )
  26.       )
  27.       (set #msg_askbool_help "")
  28.       (set #msg_done (cat "Done!\n"
  29.                           "The Savage-Installer replaced the original Installer\n"
  30.                           "and made a copy of the old one in \"%s\".\n\n"
  31.                           "Have fun with the new Installer and its features"
  32.                      )
  33.       )
  34.     )
  35. )
  36.  
  37. (if (= @system-language "deutsch")
  38.  
  39.     (
  40.       (set #msg_welcome (cat "Willkommen zur Installation des Savage-Installer\n\n"
  41.                              "Der Savage-Installer soll ein Ersatz für den\n"
  42.                              "originalen Installer von C= sein\n"
  43.                              "Er bietet viele neue Eigenschaften, sieht viel besser aus\n"
  44.                              "und ist kleiner als der C= Installer"
  45.                         )
  46.       )
  47.       (set #msg_askfile_prompt "Wo befindet sich der Installer?")
  48.       (set #msg_askfile_help (cat "Bitte wählen Sie den originalen Installer von C=. "
  49.                                   "Dieses Skript macht eine Kopie des originalen "
  50.                                   "Installers und wird danach den originalen durch "
  51.                                   "den neuen Savage-Installer ersetzen."
  52.                              )
  53.       )
  54.       (set #msg_copylib_prompt "Kopiere jetzt den Savage-Installer nach \"%s\"")
  55.       (set #msg_copylib_help "")
  56.       (set #msg_askbool_prompt (cat "Ihre eingestellte Sprache ist \"%s\"\n"
  57.                                     "Wollen Sie einen entsprechenden Katalog (falls "
  58.                                     "vorhanden) installieren?"
  59.                                )
  60.       )
  61.       (set #msg_askbool_help "")
  62.       (set #msg_done (cat "Fertig!\n"
  63.                           "Der Savage-Installer hat Ihren originalen Installer\n"
  64.                           "ersetzt und eine Kopie des alten als \"%s\" erzeugt.\n\n"
  65.                           "Viel Spaß mit dem neuen Installer und seinen Möglichkeiten"
  66.                      )
  67.       )
  68.     )
  69. )
  70.  
  71. (user expert)
  72.  
  73. (message #msg_welcome)
  74.  
  75. (welcome)
  76.  
  77. (complete 0)
  78.  
  79. (set #installer (askfile (prompt #msg_askfile_prompt)
  80.                          (default "c:installer")
  81.                          (help #msg_askfile_help)
  82.                 )
  83. )
  84. (set #installer_backup (cat #installer ".backup"))
  85.  
  86. (complete 25)
  87.  
  88. (if (not (exists #installer_backup (noreq)))
  89.     (
  90.       (rename #installer #installer_backup)
  91.     )
  92. ) 
  93.  
  94. (complete 50)
  95.  
  96. (copylib (prompt (#msg_copylib_prompt #installer))
  97.          (help #msg_copylib_help)
  98.          (confirm average)
  99.          (source (if (database "cpu" "(68000|68010)")
  100.                      ("c/installer000")
  101.                      ("c/installer020")
  102.                  )
  103.          )
  104.          (dest (pathonly #installer))
  105.          (newname (fileonly #installer))
  106. )
  107.  
  108. (complete 75)
  109.  
  110. (if (askbool (prompt (#msg_askbool_prompt @system-language))
  111.              (help #msg_askbool_help)
  112.              (default 0)
  113.     )
  114.  
  115.     (
  116.       (set #catalog_source (tackon (tackon "catalogs" @system-language) "savageinstaller.catalog"))
  117.       (set #catalog_dest (tackon "locale:catalogs" @system-language))
  118.  
  119.       (if (exists #catalog_source (noreq))
  120.           (if (exists #catalog_dest (noreq))
  121.               (copylib (source #catalog_source)
  122.                        (dest #catalog_dest)
  123.               )
  124.           )
  125.       )
  126.     )
  127. )
  128.  
  129. (complete 100)
  130.  
  131. (exit (#msg_done #installer_backup))
  132.  
  133.  
  134.  
  135.